Top 10k strings from Database (1982)(MiCROL).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 a$(i,l)="*"
   2 search fails":
   2 ct=(u-k)*ll:
   2 a()+ll*(k-l):
   1 z$=a$(k,fc2+lx
   1 y=t+(p1+bs-l)*ps+l:
   1 x$=a$(i,cp
   1 x$="sort":
   1 x$="save":
   1 x$="replace: "
   1 x$="numeric line: ":
   1 x$="load":
   1 x$="find: ":
   1 x$="delete document":
   1 x$="?"+x$:
   1 x$="*"+x$:
   1 w=t+(p1-l)*ps+l:
   1 u-st2+z;" lines";#l;
   1 ta=ll-j+l:
   1 ps=fl-t-l:
   1 ok-dt+l,o;c$:
   1 nu=(en2-t)/ps:
   1 m$=x$+" not found":
   1 m$="printing stopped":
   1 m$="paragraph different size":
   1 m$="no room to add a line":
   1 m$="no room to add a document":
   1 m$="neither found":
   1 m$="memory set":
   1 m$="memory out of range":
   1 m$="document not found":
   1 m$="document deletion disabled":
   1 l;"type:";
   1 l;"file name: ";
   1 l;"document title:";
   1 l;"Press any key to continue...    ":
   1 l;"Documents in file ";f$;":";
   1 k-dt+l,o;i$:
   1 k-dt+l,o;c$:
   1 k-dt+l,o;a$(k):
   1 k-dt+l,o;" ";
   1 fl-st2+l;" lines"''
   1 fc=fc-fl*ll+ll+l:
   1 ct=(u-k+l)*ll:
   1 ct=(u-fl+l)*ll:
   1 b$=a$(w+i):
   1 b$="*"+i$:
   1 a()+st*ll-ll:
   1 a()+ll*t-ll:
   1 a()+ll*fl-ll:
   1 a()+en*ll-l
   1 a$(y+i)=b$:
   1 a$(x,l)>"@";
   1 a$(x,l)="-"
   1 a$(x,l)="+"
   1 a$(x,l)="*"
   1 a$(w+i)=a$(y+i):
   1 a$(w)>a$(y)
   1 a$(t+l,l)="+"
   1 a$(k,l)="*")
   1 a$(k,l)="*"
   1 a$(k)=i$+r$+z$:
   1 a$(i,ll)=">":
   1 a$(i,l)>"h"
   1 a$(i,l)<"a"
   1 a$(i,j)="="
   1 a$(i,j)=":"
   1 a$(i,j)=" "
   1 a$(fl,l)="*")
   1 The Database 
   1 DATABASE  
   1 (m-u)+" lines left":
   1 (a$(fl,l)="+"
   1 ((fc+l)/ll+l):
   1 #l;"sorting blocks of ";bs;"..."
   1 "replace ";(p$);" with: ";
   1 "options: ";
   1 "go to document: ";
   1 "file to load: ";
   1 "'yes' to ";(x$);": ";
   1  1982             MiCROL